Delphi Informant Complete 1995 - 2000/Delphi Informant Complete 1995 to 2000.iso/Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar/1995/JUL/JO9507/track.dfm/track.txt

Text File | 1995-05-30 | 12KB | 411 lines

object FrmDBTrack: TFrmDBTrack
  Left = 203
  Top = 105
  ActiveControl = DBEdit1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsDialog
  Caption = 'DBTracker - Database event tracking utility'
  ClientHeight = 269
  ClientWidth = 574
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  TextHeight = 13
  object Label1: TLabel
    Left = 199
    Top = 2
    Width = 57
    Height = 13
    Caption = 'Calc Field'
  end
  object Label2: TLabel
    Left = 338
    Top = 3
    Width = 91
    Height = 13
    Caption = 'Call Method for:'
  end
  object Label3: TLabel
    Left = 11
    Top = 2
    Width = 42
    Height = 13
    Caption = 'CustNo'
  end
  object Label4: TLabel
    Left = 67
    Top = 2
    Width = 52
    Height = 13
    Caption = 'Company'
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 62
    Width = 246
    Height = 181
    TabStop = False
    DataSource = dsDetail
    TabOrder = 5
    TitleFont.Color = clBlack
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = [fsBold]
  end
  object DBEdit1: TDBEdit
    Left = 8
    Top = 16
    Width = 50
    Height = 20
    DataSource = dsMaster
    MaxLength = 0
    TabOrder = 0
  end
  object DBEdit2: TDBEdit
    Left = 64
    Top = 16
    Width = 135
    Height = 20
    DataSource = dsMaster
    MaxLength = 0
    TabOrder = 1
  end
  object DBNavigator2: TDBNavigator
    Left = 12
    Top = 40
    Width = 241
    Height = 18
    DataSource = dsMaster
    ParentShowHint = False
    ShowHint = True
    TabOrder = 3
    TabStop = True
  end
  object lstEvent: TListBox
    Left = 336
    Top = 42
    Width = 232
    Height = 222
    TabStop = False
    ItemHeight = 13
    TabOrder = 6
  end
  object btnClear: TBitBtn
    Left = 513
    Top = 15
    Width = 21
    Height = 22
    Hint = 'Empty event list'
    ModalResult = 3
    ParentShowHint = False
    ShowHint = True
    TabOrder = 7
    TabStop = False
    OnClick = btnClearClick
    Glyph.Data = {
      BE060000424DBE06000000000000360400002800000024000000120000000100
      0800000000008802000000000000000000000000000000000000000000000000
      BF0000BF000000BFBF00BF000000BF00BF00BFBF0000C0C0C000C0DCC000F0C8
      A400000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
      0303030303030303030303030303030303030303030303030303030303030303
      0303F8F80303030303030303030303030303030303FF03030303030303030303
      0303030303F90101F80303030303F9F80303030303030303F8F8FF0303030303
      03FF03030303030303F9010101F8030303F90101F8030303030303F8FF03F8FF
      030303FFF8F8FF030303030303F901010101F803F901010101F80303030303F8
      FF0303F8FF03FFF80303F8FF030303030303F901010101F80101010101F80303
      030303F8FF030303F8FFF803030303F8FF030303030303F90101010101010101
      F803030303030303F8FF030303F803030303FFF80303030303030303F9010101
      010101F8030303030303030303F8FF030303030303FFF8030303030303030303
      030101010101F80303030303030303030303F8FF0303030303F8030303030303
      0303030303F901010101F8030303030303030303030303F8FF030303F8030303
      0303030303030303F90101010101F8030303030303030303030303F803030303
      F8FF030303030303030303F9010101F8010101F803030303030303030303F803
      03030303F8FF0303030303030303F9010101F803F9010101F803030303030303
      03F8030303F8FF0303F8FF03030303030303F90101F8030303F9010101F80303
      03030303F8FF0303F803F8FF0303F8FF03030303030303F9010303030303F901
      0101030303030303F8FFFFF8030303F8FF0303F8FF0303030303030303030303
      030303F901F903030303030303F8F80303030303F8FFFFFFF803030303030303
      03030303030303030303030303030303030303030303030303F8F8F803030303
      0303030303030303030303030303030303030303030303030303030303030303
      0303}
    NumGlyphs = 2
  end
  object DBEdit4: TDBEdit
    Left = 204
    Top = 16
    Width = 52
    Height = 20
    TabStop = False
    DataSource = dsMaster
    MaxLength = 0
    TabOrder = 2
  end
  object DBNavigator1: TDBNavigator
    Left = 12
    Top = 247
    Width = 241
    Height = 18
    DataSource = dsDetail
    ParentShowHint = False
    ShowHint = True
    TabOrder = 4
    TabStop = True
  end
  object edCount: TEdit
    Left = 540
    Top = 16
    Width = 26
    Height = 20
    TabStop = False
    Color = clBtnFace
    ParentShowHint = False
    ReadOnly = True
    ShowHint = False
    TabOrder = 8
    Text = '0'
  end
  object cboTables: TComboBox
    Left = 336
    Top = 16
    Width = 101
    Height = 20
    TabStop = False
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 9
    OnChange = cboTablesChange
  end
  object GroupBox1: TGroupBox
    Left = 260
    Top = 33
    Width = 72
    Height = 231
    Caption = 'Methods'
    TabOrder = 10
    object btnInsert: TBitBtn
      Left = 9
      Top = 22
      Width = 56
      Height = 21
      Hint = 'Call TTable.Insert'
      Caption = '&Insert'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TabStop = False
      OnClick = btnInsertClick
    end
    object btnDelete: TBitBtn
      Left = 9
      Top = 49
      Width = 56
      Height = 21
      Hint = 'Call TTable.Delete'
      Caption = '&Delete'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      TabStop = False
      OnClick = btnDeleteClick
    end
    object btnEdit: TBitBtn
      Left = 9
      Top = 76
      Width = 56
      Height = 22
      Hint = 'Call TTable.Edit'
      Caption = '&Edit'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      TabStop = False
      OnClick = btnEditClick
    end
    object btnPost: TBitBtn
      Left = 9
      Top = 111
      Width = 56
      Height = 21
      Hint = 'Call TTable.Post'
      Caption = '&Post'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      TabStop = False
      OnClick = btnPostClic